• * 



INVENTOR : 



Peter V. Boesen, M.D. 



Thomas J. Mann 



TITLE: 



METHOD AND MEDIUM FOR COMPUTER READABLE KEYBOARD 



DISPLAY INCAPABLE OF USER TERMINATION 



BACKGROUND OF THE INVENTION 



FIELD OF THE INVENTION 

The present invention relates generally to a method and 
medium for inputting data, and more particularly, to a 
keyboard of constant size and shape present on the screen of 
a touch- screen style computer whenever user input may be 
desired. The keyboard display may be used by any number of 
computer software programs, including any known operating 
system in which a touch- sensitive computer display may be 
incorporated. Additionally, the present invention may be 
used in conjunction with any individual computer, network 
and/or Internet based system. 



Computers with touch- screen displays, allowing a user to 
simply press on a desired location to obtain a desired input, 
have been around for some time. For example, a pen-based 
computer, such as the Fujitsu Model Point 1600, allows a user 
to press on the screen using the attached pen or other styli, 
and thereby provide user input. The use of such a pen-based 
computer allows a user to enter all necessary data without 
the need for an external keyboard, mouse or other input 
device. The use of an on-screen keyboard in such a computer 
allows a user to input data without the need for additional 
handwriting recognition software. Handwriting recognition 
software, while constantly improving, is often inaccurate and 
cumbersome. Further, such handwriting recognition software 
is often processor intensive. 



PROBLEMS IN THE ART 
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Currently, on-screen keyboards allow a user to maximize, 
minimize, or simply remove the keyboard on the display. 
Further, the shape and size of the keyboard may be altered. 
Often, such alterations or terminations are accidental and 
returning a keyboard to a useable size and shape wastes 
valuable time. In a medical setting, for example, it is 
highly undesirable to have a care provider attempting to 
recover from an accidental keyboard alteration when the care 
provider should be attending to and recording information on 
patients. It is therefore desirable to provide an on-screen 
keyboard which is incapable of alteration or termination by a 
user . 

More and more applications are being developed for pen- 
based or touch-screen based computers. These applications 
will typically require a user to input data at a specific 
location on the screen. An on-screen keyboard may be 
necessary to provide the desired input. However, current on- 
screen keyboards may be moved by the user and therefore 
placed in undesirable locations which may block necessary 
text input fields or instructions. Further, current on- 
screen keyboard include a task bar having minimizing and 
maximizing buttons which allow a user to enlarge or reduce 
the window in which the keyboard appears. Often, such 
keyboards also include a close button which allows the user 
to terminate the keyboard. Upon pressing these buttons, many 
computer novices have difficulty launching another instance 
of the keyboard or recovering the keyboard to a usable state. 
It is therefore desirable to have an on-screen keyboard which 
is capable of permanent placement on a computer display. 

Computer programs may require input only randomly. Many 
ask for user input and then present the results. As it would 
clearly hamper the presentation of results, data or other 
information to have an on-screen keyboard present at all 
times, it is desirable to provide an on-screen keyboard which 
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may be selectively called up as a subroutine or subprogram by 
a variety of programming. 

There is therefore a need to have an on-screen keyboard 
which solves these and other problems in the art. 

FEATURES OF THE INVENTION 

A general feature of the present invention is the 
provision of an input area which overcomes the problems found 
in the prior art . 

A further feature of the present invention is the 
provision of an input area which may be used in conjunction 
with touch-sensitive displays. 

Another feature of the present invention is the 
provision of an input area which is immutable. 

A further feature of the present invention is the 
provision of an input area which may not be moved. 

A still further feature of the present invention is the 
provision of an input area which allows a user to input data 
without the need for handwriting recognition software. 

An additional feature of the present invention is the 
provision of an input area which may not be maximized. 

Another feature of the present invention is the 
provision of an input area which may not be minimized. 

A still further feature of the present invention is the 
provision of an input area which may not be removed by the 
user . 

A further feature of the present invention is the 
provision of an input area which contains a keyboard. 

Another feature of the present invention is the 
provision of an input area which may be selectively used by a 
computer program. 

A still further feature of the present invention is the 
provision of an input area which provides an easy to use and 
reliable method of inputting information into a computer 
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system regardless of the level of computer skill possessed by 
the user. 

These, as well as other features and advantages of the 
present invention will become apparent from the following 
specification and claims. 

SUMMARY OF THE INVENTION 

The present invention generally comprises an immutable 
keyboard display. In a preferred embodiment, the present 
invention includes a software application that provides a 
keyboard display which may not be minimized, maximized, 
closed, or deleted. Further, the keyboard display allows a 
user to input information as desired via a touch-screen based 
or pen based computer. 

BRIEF DESCRIPTION OF THE DRAWINGS 

Figure 1 is a pictorial representation of a display of a 
pen-based computer incorporating the keyboard display of the 
present invention . 

Figure 2 is a close-up view of the keyboard display of 
the present invention. 

DETAILED DESCRIPTION OF THE EMBODIMENT 

The present invention will be described as it applies to 
its preferred embodiment. It is not intended that the 
present invention be limited to the described embodiment. It 
is intended that the invention cover all modifications and 
alternatives which may be included within the spirit and 
scope of the invention. 

As shown in Figure 1, a pen-based computer 10, such as 

the Fujitsu Model Point 1600, includes a touch-sensitive 

display 12 . On the display 12 is shown the user interface 

for a software application 14 which may be running from or 

accessed by the computer 10. It is to be understood that the 

computer 10 could be a stand-alone computer or a part of any 
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network or Internet based system. However, the computer 10 
preferably provides a 32 bit environment. Computer 10 may 
access any type of software application through any number of 
known drives or via a network or web server. Once accessed, 
the user will see the application as it appears on the 
display 12 of the computer 10. The application may ask for 
user input at various locations through the use of text boxes 
16 or other fields. The user may provide the desired input 
by holding the pen 18 or any other known input device which 
may include the user's finger, and pressing on the display 12 
of the computer 10 so as to strike a desired key 22 of the 
keyboard 2 0 . 

The keyboard 2 0 is preferably an image map or active map 
incorporated at a set location on the display 12 . The 
keyboard 2 0 may not be moved, maximized, or minimized. 
Therefore, the keyboard 2 0 provides the user with a constant 
input area to which the user may become accustomed and 
becomes an integral component . 

The keyboard 20, as shown in Figure 2, contains a 
plurality of keys 22. The keys 22 may include all those 
currently found on any standard typewriter or computer 
keyboard, or may be application-specific. For instance, if 
the software in which user input is desired is primarily 
financial software, the keyboard 2 0 may include only numbers. 
Further, if the software requires the user to input names or 
words, the keyboard 2 0 may include one key 22 for every 
letter of the alphabet and any necessary punctuation or 
function keys. Further, the keys 22 may be programmed to 
represent any symbol or accentuated letter to allow the 
keyboard to be used in applications in which input may be 
required in various languages. 

The keyboard 2 0 is preferably the result of a software 
application written in Visual Basic or C++, though various 
software programming languages may be used. The keyboard has 
all task bars removed and may not be minimized, maximized, 
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deleted, closed or resized and is therefore immutable. 
Preferably, the keyboard application is a subroutine or 
subprogram which is made available for use by external 
software applications. The keyboard application is 
preferably part of the operating system running on the 
computer 10. Incorporating the keyboard application into the 
computer 10 allows the keyboard application to be available 
to any external software application capable of running on 
the computer 10. The keyboard application may include a 
dynamic link library (dll) application. The dll application 
allows the external software to selectively use the keyboard 
and either have the keyboard in or out. This allows the 
software to use the entirety of the screen when necessary for 
displaying information or results. 

An example of the keyboard application programming as it 
would appear in Visual Basic is: 

Option Explicit 

Public Sub Shift_Down() 
cmdLeft Shift . Caption = "LowerCase" 
cmdRightShif t . Caption = "LowerCase" 
cmdLef tShif t .Tag = "OFF" 
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End Sub 

Public Sub Shift_Up() 

cmdLef tShif t . Caption = "Uppercase" 

cmdRightShif t . Caption = "Uppercase 
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End Sub 

Public Sub Set_Caps_Lock ( ) 

If cmdCapsLock.Tag = "OFF" Then 

cmdCapsLock . Caption = "Caps On" 



Caps_On 

Else 

cmdCapsLock . Caption = "Caps Off" 
cmdCapsLock.Tag = "OFF" 
Caps_OFF 
End If 



strKeys = " " 

strKeys - strKeys & "{CAPSLOCK}" 
SendVKeys ( strKeys ) 

End Sub 

Public Sub Key_Layout 1 ( ) 

Dim intTemp, intRightBorder As Integer 
Dim IngPcnt As Double 
Dim dblFontSize As Double 
Dim IngFormWidth As Long 

Dim intRowlTop, intRow2Top, intRow3Top, intRow4Top, 
intRowBTop, intRow6Top, intRow7Top As Integer 



cmdCapsLock.Tag = 
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Dim intFontSize, intHeight, intLetterWidth, 
'unctionWidth As Integer 

IngFormWidth = frmKeys . Width 

If frmKeys . BorderStyle > 0 Then 
IngPcnt = IngFormWidth / 713 5 

Else 

IngPcnt = IngFormWidth / 6975 
End If 

'IngPcnt = IngFormWidth / 6975 
■ pKB. Height = 2790 * IngPcnt 
•pKB. Height = (3390 * IngPcnt) 
intHeight = 33 0 * IngPcnt 
intLetterWidth = 350 * IngPcnt 
intFunctionWidth = 470 * IngPcnt 
intTemp = intFunctionWidth / 24 
intFunctionWidth = (intTemp +1) * 24 
intFontSize = 9 * IngPcnt 
dblFontSize = 8 * IngPcnt 

intRowlTop = 6 0 * IngPcnt 
intRow2Top = 540 * IngPcnt 
intRow3Top = 960 * IngPcnt 
intRow4Top = 13 8 0 * IngPcnt 
intRowSTop = 1860 * IngPcnt 
intRowGTop = 2 34 0 * IngPcnt 
intRow7Top = 2 82 0 * IngPcnt 

'Set the form height to porportion with form width 
If frmKeys . BorderStyle > 0 Then 

frmKeys . Height = intRow6Top + intHeight + 465 
Else 

frmKeys . Height = intRow6Top + intHeight + 6 0 
End If 
'Row 1 
' Escape Key 

cmdEscape . Font . Size = dblFontSize 
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cmdEscape . Top = intRowlTop 
cmdEscape . Lef t = 60 * IngPcnt 
cmdEscape .Width = 670 * IngPcnt 
cmdEscape . Height = intHeight 
' Fl Key 

Commandl (48) .Font. Size = intFontSize 
Commandl (48) .Top = intRowlTop 
Commandl (48) .Lef t = 805 * IngPcnt 
Commandl (48) .Width = intFunct ionWidth 
Commandl (48) .Height = intHeight 
1 F2 Key 

Commandl (49) .Font. Size = intFontSize 
Commandl (49) .Top = intRowlTop 
Commandl (49) .Left = Commandl (48) .Left 
Commandl (48) .Width '1285 * IngPcnt 

Commandl (49) .Width = intFunct ionWidth 
Commandl (4 9) .Height = intHeight 
1 F3 Key 

Commandl (50) .Font. Size = intFontSize 
Commandl (50) .Top = intRowlTop 
Commandl (50) . Lef t = Commandl (4 9) . Lef t 
Commandl (49) .Width '1765 * IngPcnt 

Commandl (50) .Width = intFunct ionWidth 
Commandl (50) .Height = intHeight 
' F4 Key 

Commandl (51) .Font. Size = intFontSize 
Commandl (51) . Top = intRowlTop 
Commandl (51) .Lef t = Commandl ( 5 0 ). Lef t 
Commandl (50) .Width '2245 * IngPcnt 

Commandl (51) .Width = intFunct ionWidth 
Commandl (51) . Height = intHeight 
' F5 Key 

Commandl (52) .Font. Size = intFontSize 
Commandl (52) . Top = intRowlTop 
Commandl (52) .Left = 2905 * IngPcnt 
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1*5 f 

ill 



Command 1 (52 
Command 1 (52 
* F6 Key 
Commandl (53 
Command 1 (53 
Commandl (53 

Commandl (52) .Width 
Commandl (53 
Commandl (53 
' F7 Key 
Commandl (54 
Commandl ( 54 
Commandl ( 54 

Commandl (53) .Width 
Commandl (54 
Commandl (54 
• F8 Key 
Commandl (55 
Commandl (55 
Commandl (55 

Commandl (54) .Width 
Commandl (55 
Commandl (55 
' F9 Key 
Commandl (56 
Commandl (56 
Commandl (56 
Commandl (56 
Commandl (56 
' F10 Key 
Commandl (57 
Commandl (57 
Commandl (57 

Commandl (56) .Width 
Commandl (57) 



.Width = intFunctionWidth 
.Height = intHeight 

.Font. Size = intFontSize 

.Top = intRowlTop 

.Left = Commandl (52) . Left + 

■3385 * IngPcnt 
.Width = intFunctionWidth 
.Height - intHeight 

.Font. Size = intFontSize 

.Top = intRowlTop 

.Left = Commandl (53) . Left + 

! 3865 * IngPcnt 
.Width = intFunctionWidth 
.Height = intHeight 

.Font. Size = intFontSize 

. Top = intRow 1 Top 

.Left = Commandl (54) .Left + 

! 4345 * IngPcnt 
.Width = intFunctionWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRowlTop 
.Left = 5005 * IngPcnt 
.Width = intFunctionWidth 
.Height = intHeight 

.Font. Size = dblFontSize 

. Top = intRowlTop 

.Left = Commandl (56) . Left + 

•5485 * IngPcnt 

.Width = intFunctionWidth 
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Commandl (57) .Height = intHeight 
'Fll Key 

Commandl (58) .Font. Size = dbl Font Size 
Commandl (58) .Top = intRowlTop 
Commandl (58) .Left = Commandl ( 57 ). Left + 
Commandl (57) .Width '5965 * IngPcnt 

Commandl (58) .Width = intFunctionWidth 
Commandl (58) .Height = intHeight 
'F12 Key 

Commandl (59) . Font . Size = dblFontSize 
Commandl (59) . Top = intRowlTop 
Commandl (59) . Left = Commandl ( 58 ). Left + 
Commandl (58) .Width '6445 * IngPcnt 

;0 Commandl (59) .Width = intFunctionWidth 

IIP 

u\ Commandl ( 59) . Height = intHeight 



3 ! ef 



|lj intRightBorder = Commandl (59) .Left + Commandl ( 59 ). Width 

^ 'Row 2 

G ' ' Key 

Commandl (4 5) .Font. Size = intFontSize 
Commandl (45) . Top = intRow2Top 
Commandl (4 5) . Left = 6 0 * IngPcnt 
Commandl (45) .Width = intLetterWidth 
Commandl (45) .Height = intHeight 

• 1 Key 

Commandl (27) .Font. Size = intFontSize 
Commandl (27) .Top = intRow2Top 
Commandl (27) . Left = 480 * IngPcnt 
Commandl (27) .Width = intLetterWidth 
Commandl (27) .Height = intHeight 

' 2 Key 

Commandl (28) .Font. Size = intFontSize 

Command 1(28) . Top = i nt Row2 Top 
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is 



Commandl (2 8 
Command 1 (2 8 
Commandl (2 8 

'3 Key 
Commandl (2 9 
Commandl (2 9 
Commandl (2 9 
Commandl (2 9 
Commandl (2 9 

'4 Key 
Commandl (3 0 
Commandl (3 0 
Commandl ( 3 0 
Commandl (3 0 
Commandl (3 0 

' 5 Key 
Commandl (31 
Commandl (31 
Commandl (31 
Commandl (31 
Commandl (31 

' 6 Key 
Commandl (32 
Commandl (3 2 
Commandl ( 3 2 
Commandl (32 
Commandl (3 2 

• & Key 
Commandl (33 
Commandl (3 3 



.Left - 900 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
. Top = i n t Row2 Top 
.Left = 1320 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 1740 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 2160 * IngPcnt 
.Width = intLetterWidth 
. Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 2580 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 

. Top = i n t Row2 Top 
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Commandl 
Commandl 
Commandl 



(33 
(33 
(33 



.Left = 3000 * IngPcnt 
.Width = intLetterWidth 
■Height = intHeight 



* 7 Key 
Commandl (44 
Commandl (44 
Commandl (44 
Commandl (44 
Commandl (44 

' 8 Key 
Commandl (34 
Commandl (34 
Commandl (34 
Commandl (34 
Commandl (34 

' 9 Key 
Commandl (35 
Commandl (35 
Commandl (35 
Commandl (35 
Commandl (35 

' 0 Key 
Commandl (2 6 
Commandl (26 
Commandl (26 
Commandl (26 
Commandl (26 

' - Key 
Commandl (46 
Commandl (4 6 



.Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 3000 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 



.Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 3420 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 



.Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 3840 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 



.Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 4260 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 



Font. Size = intFontSize 
Top = i n t Row2 Top 
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Commandl (46) .Left = 4680 * IngPcnt 
Commandl (4 6) .Width = intLetterWidth 
Commandl (46) . Height = intHeight 

' = Key 

Commandl (47) .Font. Size = intFontSize 
Commandl (47) . Top = intRow2Top 
Commandl (47) . Left = 5100 * IngPcnt 
Commandl (47) .Width = intLetterWidth 
Commandl (47) .Height = intHeight 

'Backspace Key 

cmdBackspace . Font . Size = dblFontSize 
cmdBackspace . Top = intRow2Top 
cmdBackspace . Left = 5520 * IngPcnt 

cmdBackspace . Width = intRightBorder - cmdBackspace . Left 
cmdBackspace . Height = intHeight 

• Row 3 
•TAB Key 

cmdTab . Font . Size = dbl Font Size 
cmdTab.Top = intRow3Top 
cmdTab. Left = 6 0 * IngPcnt 
cmdTab. Width = 650 * IngPcnt 
cmdTab . Height = intHeight 

'Q Key 

Commandl (16) .Font. Size = intFontSize 
Commandl (16) .Top = intRow3Top 
Commandl (16) . Left = 780 * IngPcnt 
Commandl (16) .Width = intLetterWidth 
Commandl (16) .Height = intHeight 

■W Key 

Commandl (22) .Font. Size = intFontSize 
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□ 

'SB? 

|J 1 
i y 

"S3? 

m 

: j 



Commandl (22) .Top = intRow3Top 
Commandl (22) .Lef t = 1200 * IngPcnt 
Commandl (22) .Width = intLetterWidth 
Commandl (22) .Height = intHeight 

■E Key 

Commandl (4) .Font. Size = intFontSize 
Commandl (4 ). Top = intRow3Top 
Commandl (4) .Lef t = 1620 * IngPcnt 
Commandl (4) .Width = intLetterWidth 
Commandl (4 ). Height = intHeight 

■R Key 

Commandl (17) .Font. Size = intFontSize 
Commandl (17) .Top = intRow3Top 
Commandl (17) . Lef t = 2040 * IngPcnt 
Commandl (17) .Width = intLetterWidth 
Commandl (17) .Height = intHeight 

•T Key 

Commandl (19) .Font. Size = intFontSize 
Commandl (19) .Top = intRow3Top 
Commandl (19) . Lef t = 2460 * IngPcnt 
Commandl (19) .Width = intLetterWidth 
Commandl (19) .Height = intHeight 

' Y Key 

Commandl (24) .Font. Size = intFontSize 
Commandl (24) .Top = intRow3Top 
Commandl (24) .Lef t = 2880 * IngPcnt 
Commandl (24) .Width = intLetterWidth 
Commandl (24) .Height = intHeight 

' U Key 

Commandl (20) .Font. Size = intFontSize 
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Commandl (20) .Top = intRow3Top 
Commandl (20) .Left = 3300 * IngPcnt 
Commandl (20) .Width = intLetterWidth 
Commandl (20) .Height = intHeight 

' I Key 

Commandl (8) .Font. Size = int Font Size 
Commandl ( 8 ) . Top = intRow3Top 
Commandl (8) . Left = 3720 * IngPcnt 
Commandl (8) .Width = intLetterWidth 
Commandl (8) .Height = intHeight 

■O Key 

Commandl (14) .Font. Size = intFontSize 
Commandl (14) .Top = intRow3Top 
Commandl (14) .Left = 4140 * IngPcnt 
Commandl (14) .Width = intLetterWidth 
Commandl (14) .Height = intHeight 

1 P Key 

Commandl (15) .Font. Size = intFontSize 
Commandl (15) . Top = intRow3Top 
Commandl (15) . Left = 4560 * IngPcnt 
Commandl (15) .Width = intLetterWidth 
Commandl (15) .Height = intHeight 

' [ Key 

Commandl (41) .Font. Size = intFontSize 
Commandl (41) . Top = intRow3Top 
Commandl (41) . Left = 4980 * IngPcnt 
Commandl (41) .Width = intLetterWidth 
Commandl (41) .Height = intHeight 

' ] Key 

Commandl (42) .Font. Size = intFontSize 
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Commandl (42 ) . Top = intRow3Top 
Commandl (42) .Lef t = 5400 * IngPcnt 
Commandl (42 ) .Width = intLet terWidth 
Commandl (42 ). Height = intHeight 

' \ Key 

Commandl (43) .Font. Size = intFontSize 
Commandl (43 ). Top = intRow3Top 
Commandl (43) .Lef t = 5820 * IngPcnt 
Commandl (43 ). Width = intLetterWidth 
Commandl (43 ). Height = intHeight 

' Delete 

cmdDelete . Font . Size = dblFontSize 
cmdDelete . Top = intRow3Top 
cmdDelete . Lef t = 6240 * IngPcnt 

cmdDelete . Width = intRightBorder - cmdDelete. 
cmdDelete . Height = intHeight 

' Row 4 

1 Caps Lock Key 

cmdCapsLock. Font .Size = dblFontSize 
cmdCapsLock . Top = intRow4Top 
cmdCapsLock . Lef t = 60 * IngPcnt 
cmdCapsLock. Width = 107 0 * IngPcnt 
cmdCapsLock . Height = intHeight 

' A Key 

Commandl (0) .Font. Size = intFontSize 
Commandl (0) .Top = intRow4Top 
Commandl (0) .Lef t = 1200 * IngPcnt 
Commandl (0) .Width = intLetterWidth 
Commandl (0) .Height = intHeight 
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1 S Key 

Commandl (18) 
Commandl (18) 
Commandl (18) 
Commandl (18) 
Commandl (18) 



■ D Key 
Commandl (3 
Commandl (3 
Commandl (3 
Commandl (3 

^\ Commandl (3 

*0 

LU 'F Key 

? 5? Commandl (5 

jy Commandl (5 

* * Commandl (5 

O Commandl (5 

Commandl (5 

tie 

J^J f G Key 

Commandl ( 6 
Commandl ( 6 
Commandl (6 
Commandl (6 
Commandl (6 

•H Key 
Commandl (7 
Commandl (7 
Commandl (7 
Commandl ( 7 
Commandl (7 



.Font. Size = intFontSize 
.Top = intRow4Top 
.Left = 1620 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow4Top 
.Left = 2040 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow4Top 
.Left = 2460 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow4Top 
.Left = 2880 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
. Top = i n t Row4 Top 
.Left = 3300 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 
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9 s * 



'J Key 



Commandl 


(9) 


.Font. Size = intFontSize 


Commandl 


(9) 


.Top = intRow4Top 


Commandl 


(9) 


.Left = 3720 * IngPcnt 


Commandl 


(9) 


.Width = intLetterWidth 


Commandl 


(9) 


.Height = intHeight 


'K Key 






Commandl 


(10 


). Font. Size = intFontSize 


Commandl 


(10 


) .Top = intRow4Top 


Commandl 


(10 


) .Left = 4140 * IngPcnt 


Commandl 


(10 


) .Width = intLetterWidth 


Commandl 


(10 


) .Height = intHeight 


' L Key 






Commandl 


(11 


) .Font. Size = intFontSize 


Commandl 


(11 


) .Top = intRow4Top 


Commandl 


(11 


) .Left = 4560 * IngPcnt 


Commandl 


(11 


) .Width = intLetterWidth 


Commandl 


(11 


) .Height = intHeight 


' ; Key 






Commandl 


(39 


) .Font. Size = intFontSize 


Commandl 


(39 


) .Top = intRow4Top 


Commandl 


(39 


) .Left = 4 98 0 * IngPcnt 


Commandl 


(39 


) .Width = intLetterWidth 


Commandl 


(39 


) .Height = intHeight 


' " Key 






Commandl 


(40 


) .Font. Size = intFontSize 


Commandl 


(40 


) .Top = intRow4Top 


Commandl 


(40 


) .Left = 5400 * IngPcnt 


Commandl 


(40 


) .Width = intLetterWidth 


Commandl 


(40 


) .Height = intHeight 
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' Enter 

cmdEnter . Font . Size = dblFontSize 
cmdEnter.Top = intRow4Top 
cmdEnter .Left = 5820 * IngPcnt 

cmdEnter .Width = intRightBorder - cmdEnter . Left 
cmdEnter . Height = intHeight 



'Row 5 

'Left Shift Key 

cmdLef tShif t . Font . Size = dblFontSize 
cmdLef tShif t . Top = intRowSTop 
sfl cmdLef tShif t .Lef t = 60 * IngPcnt 

cmdLef tShift .Width = 1293 * IngPcnt 
cmdLef tShift . Height = intHeight 



IV 



l-J 



•Z Key 

Commandl (2 5) .Font. Size = intFontSize 
Commandl (25) . Top = intRow5Top 
Commandl (25) .Lef t = 1423 * IngPcnt 
Commandl (25) .Width = intLetterWidth 
Commandl (25) .Height = intHeight 



'X Key 

Commandl (23) .Font. Size = intFontSize 
Commandl (23 ). Top = intRowSTop 
Commandl (23 ). Lef t = 1843 * IngPcnt 
Commandl (23 ) .Width = intLetterWidth 
Commandl (23 ). Height = intHeight 



'C Key 

Commandl (2) .Font. Size = intFontSize 

Commandl (2 ). Top = intRowSTop 

Commandl (2) . Lef t = 2263 * IngPcnt 
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Command 1 


(2) 


Width = 


intLetterWidth 


Command 1 


(2) 


.Height 


= intHeight 


•V Key 








Command 1 


(21) 


.Font. Size = intFontSize 


Command 1 


(21) 


.Top = 


intRowSTop 


Command 1 


(21) 


.Left = 


2683 * IngPcnt 


Command 1 


(21) 


.Width 


= intLetterWidth 


Commandl 


(21) 


.Height 


= intHeight 


f B Key 








Commandl 


(1) 


.Font. Size = intFontSize 


Commandl 


(1) 


.Top = intRowSTop 


Commandl 


(1) 


.Left = 


3103 * IngPcnt 


Commandl 


(1) 


.Width = 


intLetterWidth 


Commandl 


(1) 


.Height 


= intHeight 


' N Key 








Commandl 


(13) 


.Font. Size = intFontSize 


Commandl 


(13) 


. Top = 


intRowSTop 


Commandl 


(13) 


.Left = 


3523 * IngPcnt 


Commandl 


(13) 


.Width 


= intLetterWidth 


Commandl 


(13) 


.Height 


= intHeight 


! M Key 








Commandl 


(12) 


. Font . S 


ize = intFontSize 


Commandl 


(12) 


) . Top = 


intRowSTop 


Commandl 


(12) 


> .Left = 


3 943 * IngPcnt 


Commandl 


(12; 


) .Width 


= intLetterWidth 


Commandl 


(12; 


> .Height 


= intHeight 


' , Key 








Commandl 


(36] 


) . Font . S 


ize = intFontSize 


Commandl 


(36] 


I .Top = 


intRowSTop 


Commandl 


(36; 


) .Left = 


4363 * IngPcnt 

n 0 
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Commandl (3 6) .Width = intLetterWidth 
Commandl (36) .Height = intHeight 

' . Key 

Commandl (37) .Font. Size = intFontSize 
Commandl (37) . Top = intRowSTop 
Commandl (37) . Left = 4783 * IngPcnt 
Commandl (37) .Width = intLetterWidth 
Commandl (37) . Height = intHeight 



' / Key 

Commandl (38) .Font. Size = intFontSize 
Commandl (38) . Top = intRowSTop 
Commandl (38) .Left = 5203 * IngPcnt 
Commandl (38) . Width = intLetterWidth 
Commandl (38) .Height = intHeight 



IB 
u 



'Right Shift Key 

cmdRightShif t . Font .Size = dblFontSize 
cmdRightShif t . Top = intRowSTop 
cmdRightShif t .Left = 5623 * IngPcnt 
cmdRightShif t . Width = intRightBorder - 
cmdRightShif t . Left 

cmdRightShif t . Height = intHeight 



• Row 6 

'Left Ctrl Key 

cmdCntrl . Font . Size = dblFontSize 
cmdCntrl.Top = intRow6Top 
cmdCntrl . Left = 60 * IngPcnt 
cmdCntrl .Width = 795 * IngPcnt 
cmdCntrl . Height = intHeight 

'Left Alt Key 

cmdAlt . Font . Size = dblFontSize 
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cmdAlt . Top = intRow6Top 
cmdAlt.Left = 925 * IngPcnt 
cmdAlt. Width = 73 5 * IngPcnt 
cmdAlt . Height = intHeight 

'Move Left Key 

cmdMoveLef t . Font .Size = intFontSize 
cmdMoveLef t . Top = intRowGTop 
cmdMoveLef t .Left = 1730 * IngPcnt 
cmdMoveLef t . Width = 465 * IngPcnt 
cmdMoveLef t . Height = intHeight 

' Space Bar Key 

cmdSpaceBar . Font .Size = intFontSize 
cmdSpaceBar . Top = intRow6Top 
cmdSpaceBar . Left = 2265 * IngPcnt 
cmdSpaceBar .Width = 2445 * IngPcnt 
cmdSpaceBar . Height = intHeight 

1 Move Right Key 

cmdMoveRight . Font . Size = intFontSize 
cmdMoveRight . Top = intRow6Top 
cmdMoveRight . Left = 4780 * IngPcnt 
cmdMoveRight .Width = 465 * IngPcnt 
cmdMoveRight . Height = intHeight 

'Right Alt Key 

cmdAlt2 . Font . Size = dblFontSize 
cmdAlt2.Top = intRow6Top 
cmdAlt2.Left = 5315 * IngPcnt 
cmdAlt2 .Width = 735 * IngPcnt 
cmdAlt2 . Height = intHeight 

'Right Ctrl Key 

cmdCntrl2 . Font . Size = dblFontSize 
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3) 



cmdCntrl2 . Top = intRow6Top 
cmdCntrl2 . Lef t = 612 0 * IngPcnt 

cmdCntrl2 . Width = intRightBorder - cmdCntrl2 . Lef t 
cmdCntrl2 . Height = intHeight 

'Exit Keyboard 

cmdExit Keyboard . Font .Size = dblFontSize 
cmdExi t Keyboard . Top = intRow7Top 
cmdExit Keyboard . Lef t = 60 * IngPcnt 
cmdExit Keyboard. Width = 6 915 * IngPcnt 
cmdExitKeyboard . Height = intHeight 



cmdAlt.Tag = "ON" 
cmdAlt .Caption = "Alt On" 
cmdAlt2.Tag = "ON" 
cmdAlt2 .Caption = "Alt On" 
Else 

cmdAlt.Tag = "OFF" 
cmdAlt .Caption - "Alt Off" 
cmdAlt2.Tag = "OFF" 
cmdAlt2 .Caption = "Alt Off 



End If 
End Sub 

Private Sub cmdAlt2_Click ( ) 

cmdAl t_C lick 
End Sub 

Private Sub cmdBackspace_Click ( ) 
strKeys = "{BKSP}" 



End Sub 



Private Sub cmdAlt Click () 



I f cmdAl t . Tag = 



"OFF" Then 
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SendVKeys ( strKeys ) 
End Sub 

Private Sub cmdCntrl_Cl ick ( ) 

If cmdCntrl .Tag = "OFF" Then 
cmdCntrl -Tag = "ON" 
cmdCntrl . Caption = "Ctrl On" 
cmdCntrl 2 .Tag = "ON" 
cmdCntrl2 . Caption = "Ctrl On" 
Else 

cmdCntrl. Tag = "OFF" 
cmdCntrl .Caption = "Ctrl Off" 
cmdCntrl 2 .Tag = "OFF" 
cmdCntrl2 . Caption = "Ctrl Off 



Private Sub cmdCntrl2 Click () 



Private Sub cmdDelete_Click ( ) 
strKeys = " " 

strKeys = strKeys & "{DEL}" 
SendVKeys ( strKeys ) 
End Sub 

Private Sub cmdEnter_Cl ick ( ) 
strKeys = " " 

strKeys = strKeys & "{ENTER}" 
SendVKeys ( strKeys ) 

End Sub 



End If 



End Sub 



cmdCntrl Click 



End Sub 
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m 
III 

1-11 



Private Sub cmdEscape_Click ( ) 

strKeys = "{ESC}" 

SendVKeys (strKeys ) 
End Sub 

Private Sub cmdExitKeyboard_Click ( ) 
End 

End Sub 

Private Sub cmdLef tShif t_Click ( ) 

If cmdLef tShift .Tag = "OFF" Then 

If cmdCapsLock.Tag = "OFF" Then 

Shif t_Up 
Else 

Set_Caps_Lock 
Shif t_Up 
End If 

Else 

Shif t__Down 
End If 
End Sub 

Private Sub cmdMoveLef t_Click ( ) 
strKeys = " " 

strKeys = strKeys & "{LEFT}" 
S e ndVKey s ( s t r Key s ) 

End Sub 

Private Sub cmdMoveRight_Click ( ) 
strKeys = "" 

strKeys = strKeys & "{RIGHT}" 
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SendVKeys ( strKeys ) 
End Sub 

Private Sub cmdRightShif t_Click ( ) 

cmdLef tShif t_Click 
End Sub 

Private Sub cmdSpaceBar__Click ( ) 
strKeys = » » 

strKeys = strKeys & " !? 
SendVKeys ( strKeys ) 



Private Sub cmdTab_Click ( ) 
strKeys = " " 

If cmdLef tShift .Tag = "ON" Then 

strKeys = strKeys & "+" 
End If 

strKeys = strKeys & "{TAB}" 
SendVKeys ( strKeys ) 
End Sub 

Private Sub Form_Act ivate ( ) 
Dim dl& 

' KeyboardWindow = GetForegroundWindow 

dl& = SetWindowPos (hwnd, -1, 4905, 7965, 6975, 2475, &H1 
Or &H2) 

End Sub 

Private Sub Form_Got Focus ( ) 
If Me . WindowState <> 0 Then 
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End Sub 



m 





Me . WindowState = 0 

'Me. Width = 7000 
End If 
End Sub 

Private Sub Form_Resize ( ) 
If Me . WindowState <> 0 Then 

Me . WindowState = 0 

Me. Width = 7000 
End If 
Key_Layout 1 
End Sub 



Private Sub cmdCapsLock_Click ( ) 

' Caps Lock Key 

If cmdCapsLock.Tag = "OFF" Then 

cmdCapsLock . Caption = "Caps On 
cmdCapsLock.Tag = "ON" 
Caps_On 

Else 

cmdCapsLock . Caption = "Caps Of 
cmdCapsLock.Tag = "OFF" 
Caps_OFF 
End If 
strKeys = " " 

strKeys = strKeys & "{CAPSLOCK}" 
SendVKeys (strKeys ) 
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End Sub 



Private Sub Commandl_Click ( Index As Integer 
strKeys = " " 

If cmdCapsLock. Tag = "ON" Then 

strKeys = strKeys & " {CAPSLOCK} " 
End If 

If cmdLeft Shift .Tag = "ON" Then 

strKeys = strKeys & "+" 
End If 

If cmdAlt.Tag = "ON" Then 

strKeys = strKeys & " %" 
End If 

If cmdCntrl.Tag = "ON" Then 

strKeys = strKeys & " ^" 
End If 

strKeys = strKeys & Commandl (Index) .Tag 
SendVKeys (strKeys ) 

End Sub 

Private Sub Form_Load ( ) 
Dim hSysMenu As Long 
Dim nCnt As Long 

'First, show the form 
Me . Show 

'Get handle to our form's system menu 
'(Restore, Maximize, Move, close etc.) 
hSysMenu = GetSystemMenu (Me . hwnd, False) 

If hSysMenu Then 

•Get System menu's menu count 
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nCnt = GetMenuItemCount (hSysMenu) 
If nCnt Then 

'Menu count is based onO (0, 1, 2, 3...) 

RemoveMenu hSysMenu, nCnt - 1, _ 
MF_BYPOSITION Or MF_REMOVE 

RemoveMenu hSysMenu, nCnt - 2, _ 

MF_BYPOSITION Or MF_REMOVE 1 Remove the seperator 
DrawMenuBar Me . hwnd 

'Force caption bar's refresh. Disabling X button 

Me. Caption = "GeniSus Keyboard" 
End If 
End If 

Shif t_Down 

Hook 

#If Current ProcOnly = 1 Then 

Forml . Show 
#End If 

DeactivateClose 
End Sub 

Private Sub Form_Unload (Cancel As Integer) 

UnHook 
End Sub 

Public Sub DeactivateClose ( ) 
End Sub 
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An example of an accompanying dynamic link library, .dll 
application, through which external applications may access 
the keyboard application is: 



// vKeyHook.cpp : Defines the entry point for the DLL 
application . 

// 

#include <windows . h> 
#include <winuser . h> 

#pragma data_seg ( " . SHARDATA" ) 

static int hWndActive = 0; 
static int hWndSelf = 0; 
l« static HHOOK hHook = 0; 

#pragma data_seg ( ) 



i 

s = i 



BOOL API ENTRY DllMain( HANDLE hModule, 

DWORD ul_reason_f or_call , 
LPVOID lpReserved 
) 



{ 



switch (ul_reason_for_call) 
{ 

case DLL_PROCESS_ATTACH; 
case DLL_THREAD_ATTACH : 
case DLL_THREAD_DETACH : 
case DLL_PROCESS_DETACH: 
break; 

} 

return TRUE; 
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long CALLBACK CBTProc ( 

int nCode, // hook code 

WPARAM wParam, // current -process flag 

LP ARAM iParam // message data 

) 
{ 

if (nCode == HCBT_ACTIVATE 

(int)wParam != hWndSelf) { 
hWndActive = (int) wParam; 

} 

return CallNextHookEx (hHook, nCode, wParam, IParam) ; 

} 

void stdcall HookMsg ( int hWnd) 

{ 

HINSTANCE hModule; 

hModule = GetModuleHandle ( " vKeyHook . dll " ) ; 

hHook = SetWindowsHookEx (WH_CBT, CBTProc, hModule, 0) ; 

hWndSelf = hWnd; 

} 

void stdcall UnHookMsgO 

{ 

UnhookWindowsHookEx (hHook) ; 

} 

int stdcall GetAct iveWnd ( ) 

{ 

return hWndActive; 

These codes are preferably executed in conjunction with 
a Windows 98® operating system. These codes may be executed 
in any type of system, including, but not limited to, a web 
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based system, a computer network, or any personal computer, 
personal digital assistant or other device. 

As can clearly be seen in Figures 1 and 2, there are no 
minimizing, maximizing, or close options available for the 
user. Therefore, a user can input data by selecting keys 22 
on the keyboard 2 0 as necessary. 

A general description of the present invention as well 
as a preferred embodiment of the present invention has been 
set forth above. Those skilled in the art to which the 
present invention pertains will recognize and be able to 
practice additional variations in the methods and systems 
described which fall within the teachings of this invention. 
Accordingly, all such modifications and additions are deemed 
to be within the scope of the invention which is to be 
limited only by the claims appended hereto. 



40 




